home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / tunes.arc / STARDUST.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-11-17  |  1.7 KB  |  31 lines
  1. 5  KEY OFF:CLS
  2. 10  COLOR 3,0,8
  3. 15  LOCATE 11,31:COLOR 3:PRINT "_________________"
  4. 20  LOCATE 10,33:COLOR 12:PRINT "` Star Dust '"
  5. 21  LOCATE 14,14:COLOR 3:PRINT "Words by Mitchell Parish and music by Hoagy Carmichael"
  6. 22  LOCATE 16,28:PRINT "Program by Greg McCarty"
  7. 50  FOR X=1 TO 9000:NEXT:CLS
  8. 110  PLAY "MNT110O3"
  9. 115  CLS:LOCATE 2,2:PRINT "Sometimes I wonder why I spend the lonely night..."
  10. 120  PLAY "O3 L8 B O4 C C# L4 D C O3 A F D F A O4 E L1 E"
  11. 125  CLS:LOCATE 2,2:PRINT "dreaming of a song?  The melody haunts my reverie..."
  12. 130  PLAY "O4 L8 D C O3 A- F L4 D. O4 L8 D L4 C O3 G O4 L2 C O3 L8 B O4 E O3 BG L2 E"
  13. 135  CLS:LOCATE 2,2:PRINT "and I am once again with you...  When our love was new..."
  14. 140  PLAY "P8 L8 A O4 C O3 AFGEF L2 ML D L8 D MN L4 E L8 D L4 GG L2 G"
  15. 145  CLS:LOCATE 2,2:PRINT "and each kiss an inspiration."
  16. 150  PLAY "P8 L4 D L8 EG D# DG L2 E ML A A. "
  17. 155  FOR X = 1 TO 2000:NEXT:CLS:LOCATE 2,2:PRINT "But that was long ago...":LOCATE 4,2:PRINT "Now my consolation is in the star dust of a song."
  18. 160  PLAY "MN O4 L4 E L8 EDC O3 A L4 E F# L8 B D- D L8 ML C C MN L4 A L8 D L4 GG L8 A O4 D O3 DA L2 G."
  19. 165  CLS:LOCATE 2,2:PRINT "Beside a garden wall, when stars are bright..  You are in my arms."
  20. 170  PLAY "O4 L4 CDC O3 AFDFA O4 E L1 E L8 DC O3 A- F L4 D."
  21. 175  CLS:LOCATE 2,2:PRINT "The nightingale tells his fairy tale..."
  22. 180  PLAY "L8 O4 D L4 C O3 G O4 L2 C O3 L8 B O4 E O3 BG L2 E P8"
  23. 185  CLS:LOCATE 2,2:PRINT "of a paradise where roses grew.   Tho' I dream in vain..."
  24. 190  PLAY "L8 A O4 C O3 AFGEF L2 ML D L8 D MN L4 E L8 D L4 G F# L2 ML F F."
  25. 195  FOR X=1 TO 2000:NEXT:CLS:LOCATE 2,2:PRINT "In my heart it will remain:"
  26. 200  PLAY "MN L8 CD L4 EG O4 CE L2 O3 B."
  27. 205  CLS:LOCATE 2,2:PRINT "My star dust melody,  the melody of loves refrain."
  28. 210  PLAY "O4 L4 C L8 DC O3 AF L2 ML A L8 A MN GAFGEFD L1 ML C L2 C P8"
  29. 250  CLS:LOCATE 24,30:INPUT "PLAY AGAIN (Y/N)"; Z$
  30. 260  IF Z$="Y" OR Z$="y" THEN GOTO 5 ELSE CLS :RUN "MENU.BAS"
  31.